﻿Public Class frmCommand
    Private _jugador As New Jugador()

    Private Sub frmCommand_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Output.Print("-------------------------")
        Output.Print("--Patrón Command:")
    End Sub

    Private Sub btnMove_Click(sender As System.Object, e As System.EventArgs) Handles btnMove.Click
        Dim orden As IUnidadOrden = New UnidadOrdenMover(_jugador.Unidad, 100, 55)
        _jugador.EnviarOrden(orden)
    End Sub

    Private Sub bntRestarVida_Click(sender As System.Object, e As System.EventArgs) Handles bntRestarVida.Click
        Dim orden As IUnidadOrden = New UnidadOrdenRestarVida(_jugador.Unidad, 10)
        _jugador.EnviarOrden(orden)
    End Sub
End Class